home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 2 / ETO Development Tools 2.iso / Tools - Objects / MacApp / MacApp CD Release / MacApp® 2.0.1 Tutorial / Chapter 10 / MIconEdit.p < prev    next >
Encoding:
Text File  |  1990-10-25  |  641 b   |  28 lines  |  [TEXT/MPS ]
  1. {MIconEdit.p}
  2. {copyright © 1989 by Apple Computer, Inc.  All rights reserved.}
  3.  
  4. PROGRAM IconEdit;
  5.  
  6. USES
  7.     { • MacApp }
  8.     UMacApp,
  9.     
  10.     { • Your units }
  11.     UIconEdit;
  12.  
  13.  
  14. VAR
  15.     gIconApplication:   TIconApplication;
  16.  
  17.  
  18. BEGIN
  19.     InitToolBox;                    { Essential toolbox and utilities initialization }
  20.     InitUMacApp(8);                    { Initialize MacApp with 8 calls to MoreMasters. }
  21.  
  22.     New(gIconApplication);            { Create a new TIconEditApplication object.      }
  23.     FailNIL(gIconApplication);        { Make sure New didn't fail.                     }
  24.     gIconApplication.IIconApplication(kFileType);
  25.  
  26.     gIconApplication.Run;            { Run the application.  When it's done, exit.    }
  27. END.
  28.